10 REM *********************************
20 REM *** EPROM PROGRAMMER TESTER *****
30 REM *** BY TIM BOLBACH  (1986)  *****
40 REM *********************************
50 N$(1)=" U1 PORT A":AD(1)=56832
60 N$(2)=" U1 PORT B":AD(2)=56833
70 N$(3)=" U1 PORT C":AD(3)=56834
80 N$(4)=" U2 PORT B":AD(4)=57089
90 FOR A=1 TO 4:FOR T=0 TO 7:READ P(A,T+1):NEXT T:NEXT A
100 REM *** SET ALL PORTS TO WRITE ***
110 POKE56835,128
120 POKE57091,128
130 REM *** MENU SELECT ***
140 PRINT"[147]";
150 PRINT"EPROM PROGRAMMER TESTER":PRINT
160 PRINT"----  MENU ----  "
170 PRINT
180 PRINT" 1 - U1 PORT A"
190 PRINT" 2 - U1 PORT B"
200 PRINT" 3 - U1 PORT C"
210 PRINT" 4 - U2 PORT B"
220 PRINT:PRINT:PRINT"REFER TO SCHEMATIC DIAGRAM FOR"
230 PRINT"CHIP AND PORT DESIGNATIONS"
240 POKE198,0:WAIT198,1:GETA$
250 A=ASC(A$)-48:IF A>4 OR A<1 THEN 240
260 PRINT"[147]"
270 PRINT"SET VOLTMETER FOR 5 VOLTS    [146]"
280 PRINT"CONNECT NEGATIVE TO PIN #7   [146]"
290 PRINT"CONNECT POSITIVE TO PIN SHOWN[146]"
300 PRINT:PRINT
310 PRINTN$(A);"  ADDRESS IS ";AD(A)
320 PRINT:PRINT:PRINT
330 FOR T=0 TO 7
340 PRINT" PIN # ";P(A,T+1);TAB(20);"BIT";T
350 NEXT T
360 PRINT:PRINT"COMMON  IS PIN # 7"
370 PRINT:PRINT
380 INPUT "BIT #[160]TO TURN ON (8=MENU) ";B
390 IFB<0 OR B>8 THEN 380
400 IFB=8 THEN 130
410 POKE AD(A),2^B
420 GOTO 260
430 DATA 4,3,2,1,40,39,38,37
440 DATA 18,19,20,21,22,23,24,25
450 DATA 14,15,16,17,13,12,11,10
460 DATA 18,19,20,21,22,23,24,25